//ABLMSCA   JOB (ABLMSC,B095SC),'10MIS-BLAKE X3659',                    00010004
//        CLASS=T,MSGCLASS=T,NOTIFY=ABLMSC                              00020000
//**                                                                    00030000
/*JOBPARM     L=999,T=99,LINECT=0                                       00040000
//**                                                                    00050000
//**                                                                    00060000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00070000
//*   +            J  2  8  1  S  C  Q  R - AD HOC         +            00080000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00090000
//*   +  SUMMARY: GL ACCT SUMMARY.                         +            00100000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00110000
//*   +  CHANGE LOG:                                       +            00120000
//*   +  XX/XX/XX  : IMPLEMENTED.                          +            00130000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00140000
//**                                                                    00150000
//STEP1010 EXEC PGM=IDCAMS                                              00160000
//SYSPRINT DD SYSOUT=*                                                  00170000
//SYSIN    DD *                                                         00180000
  DELETE 'ABLMSC.GL.SUMMARY.RPT01'                                      00190000
  SET MAXCC = 0                                                         00200000
//**                                                                    00210000
//STEP020     EXEC SAS                                                  00220000
//**                                                                    00230000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00240000
//*   +                                                    +            00250000
//*   +  STEP020 ABEND INSTRUCTIONS:                       +            00260000
//*   +  UNCATLG DSNS: NONE                                +            00270000
//*   +  GDG CHANGES : NONE                                +            00280000
//*   +  RESTORE     : NONE                                +            00290000
//*   +  REFERBACKS  : NONE                                +            00300000
//*   +  RESTART AT  : STEP010                             +            00310000
//*   +                                                    +            00320000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00330000
//*   +       EXTRACT GL SUMMARY YTD COUNTS.  ** SC  **    +            00340000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00350000
//**                                                                    00360000
//FT12F001    DD DSN=ABLMSC.GL.SUMMARY.RPT01,                           00370000
//            DISP=(NEW,CATLG,DELETE),                                  00380000
//            UNIT=DISK,                                                00390000
//            SPACE=(CYL,(1,1),RLSE),                                   00400000
//            DCB=(MODEL.DSCB,RECFM=FBA,LRECL=133,                      00410000
//            BLKSIZE=0)                                                00420000
//**                                                                    00430000
//FG111       DD DSN=ABLMSC.J231SC.MASTER.DISKCOPY,                     00440000
//            DISP=SHR                                                  00450000
//**                                                                    00460000
//SYSIN       DD *                                                      00470000
*--------------------------------------------------------------*;       00480000
*  CHANGELOG:                                                  *;       00490000
*--------------------------------------------------------------*;       00500000
                                                                        00510000
*--------------------------------------------------------------*;       00520000
*           EXTRACT         G/L           ACTVITY.             *;       00530000
*--------------------------------------------------------------*;       00540000
 DATA G111;                                                             00550000
 INFILE   FG111;                                                        00560000
 INPUT    @01  STATUS      $1.                                          00570000
          @06  ACCPRIME    $4.                                          00580000
          @10  ACCSUBX     $1.                                          00590000
          @13  ACCDEP2     $2. @;                                       00600000
 IF       ACCPRIME = '8000';                                            00610000
 IF       ACCDEP2 = '15';                                               00620000
 IF       ACCSUBX > '0';                                                00630000
 INPUT    @02  ACCLOC      $2.                                          00640000
          @04  ACCDIV      $2.                                          00650000
          @10  ACCSUB      $1.                                          00660000
          @10  ACCSUB3     $3.                                          00661000
          @13  ACCDEP      $4.                                          00670000
          @32  ACCDESC     $30.                                         00680000
          @255 BEGNMO      PD8.2                                        00690000
          @263 CURRMO      PD8.2                                        00700000
          @311 PD01        PD8.2                                        00710000
          @319 PD02        PD8.2                                        00720000
          @327 PD03        PD8.2                                        00721001
          @335 PD04        PD8.2                                        00722003
          @343 PD05        PD8.2                                        00723003
          @351 PD06        PD8.2                                        00724003
          @359 PD07        PD8.2                                        00725003
          @367 PD08        PD8.2                                        00726003
          @375 PD09        PD8.2                                        00727003
          @383 PD10        PD8.2                                        00728003
          @391 PD11        PD8.2                                        00729003
          @399 PD12        PD8.2                                        00729103
          ;                                                             00730000
 IF       ACCLOC = 'SC';                                                00740000
 IF       ACCSUB3 < '999';                                              00741000
 IF       ACCDEP = '1526' OR ACCDEP = '1528' OR ACCDEP = '1529'         00750000
       OR ACCDEP = '1538' OR ACCDEP = '1540' OR ACCDEP = '1541'         00760000
       OR ACCDEP = '1542' OR ACCDEP = '1559' OR ACCDEP = '1563'         00770000
       OR ACCDEP = '1565' OR ACCDEP = '1568' OR ACCDEP = '1569'         00780000
       OR ACCDEP = '1596';                                              00790000
 IF       BEGNMO > 0 OR BEGNMO < 0 OR CURRMO > 0 OR CURRMO < 0;         00800000
 ENDGMO   = (BEGNMO + CURRMO);                                          00810000
                                                                        00820000
*------- REPORTS 01 THRU 03 -------------------;                        00830000
 TITLE1 "                                           ";                  00840000
 TITLE2 "REPORT   : 01 FOR PERIOD-     FISCAL-      " ;                 00850000
 TITLE3 "SUMMARY  : GEN LEDGER                      ";                  00860000
 TITLE4 "         :                                 ";                  00870000
                                                                        00880000
*PROC FREQ;                                                             00890000
*  TABLES ACCLOC  ;                                                     00900000
*  TABLES ACCDEP  ;                                                     00910000
*  TABLES ACCDIV  ;                                                     00920000
*  TABLES ACCSUB  ;                                                     00930000
*RUN;                                                                   00940000
                                                                        00950000
                                                                        00960000
 TITLE1 "                                           ";                  00970000
 TITLE2 "REPORT   : 01 FOR PERIOD-     FISCAL-      " ;                 00980000
 TITLE3 "SUMMARY  : GEN LEDGER                      ";                  00990000
 TITLE4 "         :                                 ";                  01000000
                                                                        01010000
 PROC TABULATE FORMAT=COMMA16.2 MISSING;                                01020000
   VAR  PD03 PD04 CURRMO ENDGMO;                                        01030003
   CLASS ACCDEP ACCSUB;                                                 01040000
   TABLE (ACCDEP ALL)*(ACCSUB ALL),                                     01050000
        PD03 PD04 CURRMO ENDGMO / RTS=30                                01060003
   BOX='SUMMARY BY ACC DEPT';                                           01070000
   KEYLABEL SUM='TOTAL';                                                01080000
 RUN;                                                                   01090000
                                                                        01100000
//**                                                                    01110000
//LAST040     EXEC DFSORT                                               01120000
//**                                                                    01130000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            01140000
//*   +  CREATE BTP JVS PRROF AND PRE-EDIT RPTS.           +            01150000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            01160000
//**                                                                    01170000
//SORTIN      DD DSN=ABLMSC.GL.SUMMARY.RPT01,                           01180000
//            DISP=SHR                                                  01190000
//SORTOUT     DD SYSOUT=T,                                              01200000
//            DEST=FIN                                                  01210000
//SYSIN       DD *                                                      01220000
  SORT FIELDS=COPY                                                      01230000
//**                                                                    01240000
//**************************   END OF JOB   **************************  01250000
